home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok59.lha / AmokEd_V1.02b / txt / EdApplDefs.mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  76 lines
  1. (*************************************************************************
  2.  
  3. :Program.     EdApplDefs.mod
  4. :Contents.    Applications-Definitions for AmokEd
  5. :Author.      Hartmut Goebel
  6. :Language.    Oberon
  7. :Translator.  Amiga Oberon V2.00
  8. :History.     V1.0 09 Mar 1991, Hartmut Goebel [hG]
  9. :History.     V1.1 07 Jul 1991, [hG] + ExtentedPingPong
  10. :History.     V1.2 07 Jul 1991, [hG] + some constants
  11. :Date.        17 Oct 1991 23:13:23
  12.  
  13. *************************************************************************)
  14.  
  15. MODULE EdApplDefs;
  16.  
  17. IMPORT
  18.   rx: Rexx,
  19.   sys: SYSTEM;
  20.  
  21. CONST
  22.   (*
  23.    * Type AEd0 is deal with like an normal ARexx-Msg, so
  24.    * no ApplOnly-Commands
  25.    *)
  26.   idAEd0* = sys.VAL(LONGINT,"AEd0"); (* can't use ApplOnly-Commands! *)
  27.   idAEd1* = sys.VAL(LONGINT,"AEd1");
  28.  
  29.   (*  the ID has to be set in RexxMsg->LN_NAME, so AmokEd can check if
  30.    *  it is an ApplMessage and of which type
  31.    *
  32.    *  Type AEd0 passes only ONE Argument to AEd which must be a StingPtr
  33.    *
  34.    *  Type AEd1 passes an StringPtr in arg[0] and the arguments, if
  35.    *  any, in the next arg[x] slot(s). If there is enough room for
  36.    *  other commands and their arguments, the next slots can be used.
  37.    *  See Domukentation for further details.
  38.    *)
  39.  
  40. CONST
  41.   (*
  42.    *  number of arguments, an application needs to know
  43.    *  to notify itself to AmokEd correctly
  44.    *)
  45.   numNotifyArgsAEd0* = 1; (* only Portname of AmokEd *)
  46.   numNotifyArgsAEd1* = 1; (* only Portname of AmokEd *)
  47.  
  48.   (*
  49.    *  Text for which the Msg is should be written in slot arg[TextSlot]
  50.    *)
  51.   TextSlot* = rx.maxRMArg;
  52.  
  53.   (*
  54.    *  This is the last slot where an argument or command can be passed,
  55.    *  because the next slot is TextSlot!
  56.    *
  57.    *  By use of FillRexxMsg(), count must not be more than maxAMArg
  58.    *)
  59.   maxAMArg* = rx.maxRMArg-1;
  60.  
  61.  
  62. (*------ Extented PingPong -----------*)
  63.  
  64. CONST
  65.   NumExtPingPong* = 256;
  66.  
  67. TYPE
  68.   XPingPong* = ARRAY NumExtPingPong OF STRUCT
  69.     line*: LONGINT;
  70.     pos*: INTEGER;
  71.   END;
  72.   XPingPongPtr* = POINTER TO XPingPong;
  73.  
  74. END EdApplDefs.
  75.  
  76.